home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
Magnum_Opus_2.2
/
Magnum_Opus.Update
< prev
next >
Wrap
Text File
|
1997-09-20
|
3KB
|
110 lines
; $VER: Magnum_Opus.Update 1.0 (20.09.97)
;_________________________________________________________________________________
(set #welcome
(cat "\nWelcome to the V2.2 update of\n\n"
"Magnum Opus V2.1\n"
"Copyright © Richard Lane 1996-97"
)
)
(welcome #welcome)
(complete 5)
;===============================================================================
; First I need to check that the assign to DOpus5: exists.
(set #no-opus (cat "You don't appear to have Directory Opus V5.11 or above installed ")
)
(if (not (exists "DOpus5:DirectoryOpus"))
(abort #no-opus)
)
(complete 10)
;===============================================================================
; Now warn the user if they're running a Kickstart 2 Amiga.
; If it's a Kickstart 1.x Amiga then DOpus will NOT install in the first
; place and the above will pick this up, clever huh. Later I may do a proper
; check for this
(if (< (/ (getversion) 65536) 38)
(message "IMPORTANT NOTICE\n\nYou are using a Workbench 2.x Amiga.\n\n"
"Magnum Opus V2.1 has not been tested with this but should work OK\n"
"Please select what you want you want to do ?")
)
(complete 15)
;==============================================================================
; Now to check and display the version of Directory Opus in use.
(set vernum (getversion "DOpus5:DirectoryOpus"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )
(message ("\nDirectory Opus V5.11, 5.5, 5.6 or greater is required\n\nyou have version %ld.%ld" ver rev)
)
(complete 20)
;==============================================================================
; OK, Let's go ....
(message "This installer script will ONLY update the "
"Magnum_Opus.Guide to version 2.2.\n\n"
"Please Note, NO other files are installed."
)
;============================================================================
; Now to update the Guide
(copylib
(prompt "Copying Help file")
(help @copylib-help)
(Source "help/Magnum_Opus.Guide")
(dest "DOpus5:Help")
(infos) ;I want the new icon installed as this has the
(noposition) ;proper copyright message in it.
(optional "force")
(confirm)
)
; Just to make sure some bright spark hasn't set the wrong default tooltype.
(tooltype
(Prompt "")
(help "")
(dest "DOpus5:Help/Magnum_Opus.Guide")
(setdefaulttool "Multiview")
(setstack 4096)
)
; By default DOpus 5 doesn't install a Drawer icon for the Help directory, this
; will check if there is one from the MWB_DOpus8 part of the distribution or
; another allready installed. This will also make it easier for novice users
; to find the Magnum2 help file !
(if (NOT (exists "DOpus5:help.info"))
(copyfiles
(prompt "")
(help @copyfiles-help)
(source "Help.info")
(dest "DOpus5:")
(noposition)
(optional "force")
)
)
(complete 100)
;===============================================================================
(run "SYS:Utilities/Multiview DOpus5:Help/Magnum_Opus.Guide WINDOW"
(Help "I'll give you a clue, click Proceed.")
(prompt "The Magnum_Opus.Guide has been updated. "
"\nDo you want to read it now ?")
(confirm)
)
(exit "Update finished"
(quiet)
)
;All done thank goodness for that.